This is the companion notebook to the introductory course on simple portfolio construction and performance metrics.
A glimpse at the S&P500
The S&P500 is one of the most widely scrutinised index in the US Equity investment space. It serves very often as benchmark. The purpose of this section is to unveil a few of its statistical properties and to use the highcharter package for highchart rendering in R.
We start by loading the packages and downloading the data.
if(!require(highcharter)){install.packages("highcharter")} # Package for nice financial graphs
library(tidyverse)
library(lubridate)
library(quantmod) # The package that eases the downloading of financial data
library(highcharter) # The package for financial time-series plots
min_date <- "1995-01-01"
max_date <- "2019-02-12"
prices <- getSymbols("^GSPC", src = 'yahoo', # Yahoo source (strange ticker)
from = min_date,
to = max_date,
auto.assign = TRUE,
warnings = FALSE) %>%
map(~Ad(get(.))) %>%
reduce(merge) %>%
`colnames<-`("SP500")
Then, we turn to plotting, using highchart format. We underline that this package works with special xts (R extensible time-series) format. We point to the package reference for more details on this subject.
hc <- highchart(type = "stock") %>%
hc_title(text = "Evolution of the S&P500") %>%
hc_add_series(prices)
htmltools::tagList(hc) # Used for html export
export_hc(hc, filename = "hc.js") # Export
A nice feature of highcharts is that they allow the user to change the observation period and see the values of points on the curve.
Next, we turn to the distribution of returns.
returns <- (prices/lag(prices) - 1) %>% # Formula for returns
data.frame(Date = index(.)) %>% # Adding the Date as a column
na.omit() # Removing NA rows
m <- mean(returns$SP500) # Average daily return
s <- sd(returns$SP500) # Volatility = sd of daily returns
returns %>% ggplot() + # Plot
geom_histogram(aes(x = SP500, y = ..density..), bins = 100) +
stat_function(fun = dnorm, args = list(mean = m, sd = s), aes(color = "Gaussian"))

We plot the Gaussian distribution with parameters corresponding to the sample mean and standard deviation. Small grey rectangles around \(\pm 0.05\) indicate that large positive and negative returns occur more often than estimate by the Gaussian law: the tails of their distribution are notoriously heavy.
Finally, we take a dynamic look at the volatility. We take a frugal approach; much more elegant methods are presented in Section 4.5 of Reproducible Finance by Jonathan Regenstein.
nb_days <- 63 # 63 days roughly equivalent to 3 months
vol <- 0 # Initialisation
for(i in 1:(nrow(returns) - nb_days + 1)){ # Loop on dates: not elegant!
vol[i] <- sd(returns$SP500[i:(i + nb_days - 1)]) # Vol computed on rolling window of nb_days
}
Date <- returns$Date[nb_days:nrow(returns)]
vol <- data.frame(vol*sqrt(252))
rownames(vol) <- Date
hc_vol <- highchart(type = "stock") %>%
hc_title(text = "Evolution of volatility") %>%
hc_add_series(as.xts(vol))
htmltools::tagList(hc_vol) # Used for html export
Clearly the graph shows periods of low volatility and clusters of high market turbulence (crashes, most of the time). Returns are therefore not stationary. The properties we exhibited for the S&P500 are also true at the individual stock level.
In the next section, we turn to the core topic of portfolio backtesting.
A universe of functions
Backtesting portfolio strategies is usually simple at first, but becomes more intricate when many options are considered. To keep things simple, it is more efficient to work with functions. Functions help compartmentalise the different tasks of the process. We will build functions that compute portfolio weights and others that evaluate the performance metrics of the strategies. While we will usually work with a loop on backtesting dates, it is possible to build functions that directly generate portfolio returns (see below: the map() function).
But first, we start with the preprocessing of the data.
Data preparation
We first import and arrange the data. The data consists of monhtly financial information pertaining to 30 large US firms. They are characterised by their ticker symbol:
| AAPL (Apple) |
GE (General Electric) |
ORCL (Oracle) |
| BA (Boeing) |
HD (Home Depot) |
PFE (Pfizer) |
| BAC (Bank of America) |
IBM |
PG (Procter & Gamble) |
| C (Citigroup) |
INTC (Intel) |
T (AT&T) |
| CSCO (Cisco) |
JNJ (Johnson & Johnson) |
UNH (United Health) |
| CVS (CVS Health) |
JPM (JP Morgan) |
UPS |
| CVX (Chevron) |
K (Kellogg) |
VZ (Verizon) |
| D (Dominion Energy) |
MCK (McKesson) |
WFC (Wells Fargo) |
| DIS (Disney) |
MRK (Merck) |
WMT (Walmart) |
| F (Ford) |
MSFT (Microsoft) |
XOM (Exxon) |
There are 7 attributes: closing price (Close), market capitalisation in M$ (Mkt_Cap), price-to-book ratio (P2B), 1 month volatility (Vol_1M), 1 month relative strength index (RSI_1M), debt-to-equity ratio (D2E) and profitability margin (Prof_Marg).
Finally, the time range is 2000-2018.
load("data.RData") # Loading the data: IF DIRECTORY OK!
data <- data %>% arrange(Date,Tick) # Ranked first according to date and then stocks
summary(data) # Descriptive statistics
Tick Date Close Mkt_Cap P2B
AAPL : 221 Min. :2000-01-03 Min. : 1.004 Min. : 4491 Min. : 0.0922
BA : 221 1st Qu.:2004-08-02 1st Qu.: 28.050 1st Qu.: 63498 1st Qu.: 2.0783
BAC : 221 Median :2009-03-02 Median : 42.535 Median :128864 Median : 3.1054
C : 221 Mean :2009-03-02 Mean : 57.519 Mean :145819 Mean : 6.6966
CSCO : 221 3rd Qu.:2013-10-01 3rd Qu.: 66.045 3rd Qu.:198487 3rd Qu.: 5.2977
CVS : 221 Max. :2018-05-01 Max. :557.000 Max. :887952 Max. :1259.1554
(Other):5304
Vol_1M RSI_1M D2E Prof_Marg
Min. : 5.276 Min. :22.04 Min. : 0.00 Min. :-106.26
1st Qu.: 15.778 1st Qu.:46.12 1st Qu.: 29.36 1st Qu.: 5.11
Median : 21.607 Median :51.60 Median : 60.55 Median : 10.13
Mean : 26.898 Mean :51.64 Mean : 191.92 Mean : 11.70
3rd Qu.: 31.826 3rd Qu.:57.10 3rd Qu.: 205.02 3rd Qu.: 18.84
Max. :265.429 Max. :84.84 Max. :14585.61 Max. : 145.58
This simple table shows a possible outlier for the P2B variable. The maximum value is clearly out of range.
Next, we format the data for future use. Notably, we compute returns.
data <- data %>%
group_by(Tick) %>% # Grouping: returns computed stock-by-stock
mutate(Return = Close / lag(Close) - 1) %>% # Adding returns
na.omit() # Take out missing values
returns <- data %>% # Take data
select(Tick, Date, Return) %>% # Select 3 columns
spread(key = Tick, value = Return) # Put them into 'matrix' format
returns # Show the returns
By definition, a portfolio is a choice of weights that sum to one. Below, we implement two classical weighting schemes: the uniform portfolio (EW = equal weights) and the maximum Sharpe ratio portfolio (MSR). The latter is more complicated and requires inputs: namely the column vector of (expected) mean \(\mu\) and covariance matrix \(\Sigma\) of the assets. For simplicity, we will estimate them using sample moments - even though this is known to be a bad choice. This requires an additional argument in the function: the assets’ past returns. The MSR weights are \(w=\frac{\Sigma^{-1}\mu}{1'\Sigma^{-1}\mu}\). Both \(\mu\) and 1 are vectors here.
weights_msr <- function(returns){ # returns will refer to PAST returns
m <- apply(returns, 2, mean) # Vector of average returns
sigma <- cov(returns) # Covariance matrix
w <- solve(sigma) %*% m # Raw weights
return(w / sum(w)) # Returns normalised weights
}
weights_ew <- function(returns){ # We keep the same syntax for simplicity
N <- length(returns[1,]) # Number of assets
return(rep(1/N,N)) # Weight = 1/N
}
We are now ready to proceed with the initialisation of the variables that will use in the main loop.
tick <- levels(data$Tick) # Set of assets
t_all <- unique(data$Date) # Set of dates
sep_date <- as.Date("2010-01-01") # This date separates in-sample vs out-of-sample
t_oos <- t_all[t_all > sep_date] # Out-of-sample dates (i.e., testing set)
portf_weights <- matrix(0, nrow = length(t_oos), # Will store portfolio weights
ncol = length(tick))
portf_returns <- c() # Will store portfolio returns
A first example
At last, we can proceed to the main loop. A note of caution: both in the weighting scheme functions and in the loop below, we assume well defined (finite, i.e., non NA) data. Obviously, feeding NA data in the system will produce NA outputs. There are only four steps in the loop:
- extract the data
- compute portfolio weights
- compute realised returns
- derive the return of the portfolio
for(t in 1:length(t_oos)){
temp_data <- returns %>% filter(Date < t_oos[t]) # 1) Extracting past data: expanding window!
portf_weights[t,] <- temp_data %>% # 2) Take this past data
select(-Date) %>% # Take out the date column
weights_msr() # Appply the weighting scheme function
realised_returns <- returns %>% # 3) Take returns
filter(Date == t_oos[t]) %>% # Keep only current date
select(-Date) # Take out the date column
portf_returns[t] <- sum(portf_weights[t,] * realised_returns) # 4) Compute the return
}
In the above backtest, the amount of data considered to form the portfolio decision increases with time (expanding window). It is easy to fix the number of data point at each step and proceed on rolling windows (exercise). Likewise, switching from MSR to EW is immediate (just change the weighting function).
The main output is the vector of portfolio returns. We can easily plot the evolution of the portfolio through time.
port <- data.frame(t_oos, cumprod(1+portf_returns)) # Portf. values via cumulative product
colnames(port) <- c("Date", "Portfolio") # Changing column names
port %>% ggplot() + geom_line(aes(x = Date, y = Portfolio)) # Plot

Below, we create a function that takes a series of returns as input and provides a few simple performance metrics.
perf_met <- function(returns){
avg_ret <- mean(returns, na.rm = T) # Arithmetic mean
vol <- sd(returns, na.rm = T) # Volatility
Sharpe_ratio <- avg_ret / vol # Sharpe ratio
VaR_5 <- quantile(returns, 0.05) # Value-at-risk
met <- data.frame(avg_ret, vol, Sharpe_ratio, VaR_5) # Aggregation of all of this
rownames(met) <- "metrics"
return(met)
}
perf_met(portf_returns) # Let's test on the actual returns
Note: the values are not annualised. The annualisation can be directly coded into the function. A heuristic way to proceed is to multiply average returns by 12 and volatilities by \(\sqrt{12}\) - though this omits the compounding effect. These simplifications are ok if they are used to compare strategies. The Value at Risk is nontheless dependent on the return horizon and cannot be proxied so simply.
An important indicator is the turnover of the portfolio: it assesses asset rotation and thus impacts transaction costs. Simple turnover computes average absolute variation in portfolio weights: \(\text{Turn}=\frac{1}{T}\sum_{t=2}^T\sum_{n=1}^N|w_t^n-w_{t-1}^n|\). Full turnover takes into account the variation of the weights between rebalancing dates: \(\text{Turn}=\frac{1}{T}\sum_{t=2}^T\sum_{n=1}^N|w_t^n-w_{t-}^n|\), where \(t-\) is the time just before the rebalancing date.
turnover_simple <- function(weights){
turn <- 0
for(t in 2:length(t_oos)){
turn <- turn + sum(abs(weights[t,] - weights[t-1,]))
}
return(turn/(length(t_oos)-1)) # BEWARE: monthly value!
}
turnover_simple(portf_weights) # Simple turnover!
[1] 0.3035889
Below, we switch to the full definition of the turnover.
turnover_full <- function(weights, asset_returns, t_oos){
turn <- 0
for(t in 2:length(t_oos)){
realised_returns <- returns %>% filter(Date == t_oos[t]) %>% select(-Date)
turn <- turn + apply(abs(weights[t,] - weights[t-1,] * (1 + realised_returns)),1,sum)
}
return(turn/(length(t_oos)-1))
}
asset_returns <- returns %>% filter(Date > sep_date) # Asset returns over the experiment
turnover_full(portf_weights, asset_returns, t_oos) # Real turnover
[1] 0.3924627
Note that the turnover is computed at the monthly frequency. The second value is always more realistic; in this case it is substantially higher compared to the simplified proxy. For the sake of compactness, the turnover should be included in the perf_met() function.
Extensions
Comparing strategies
An important generalisation of the above framework is to consider more than one strategy. Comparisons are commonplace in the asset management industry: obviously, people look for the best strategy (according to particular goals, beliefs, and preferences). Below, we show how this can be handled. We will compare the two strategies that we mentionned above. First, we need to re-initiate the variables because their dimension will change (NOTE: an alternative route would be to work with lists).
Tt <- length(t_oos) # Nb of computation dates
# Avoid T because T = TRUE!
nb_port <- 2 # Nb of portfolios
portf_weights <- array(0, dim = c(Tt, nb_port, length(tick))) # Store weights
portf_returns <- matrix(0, nrow = Tt, ncol = nb_port) # Store returns
Second, we embed all weighting schemes into one single function.
weights_multi <- function(returns,j){ # Strategies are indexed by j
if(j == 1){ # j = 1 => MSR
return(weights_msr(returns))
}
if(j == 2){ # j = 2 => EW
N <- length(returns[1,])
return(rep(1/N,N))
}
}
We decided to recode the EW strategy, but we could have used the weights_ew() function instead. Finally, the main loop is only marginally different from the single strategy loop.
for(t in 1:length(t_oos)){
temp_data <- returns %>%
filter(Date < t_oos[t]) %>%
select(-Date)
for(j in 1:nb_port){ # This is the novelty: we loop on the strategies
portf_weights[t,j,] <- weights_multi(temp_data, j) # The weights' function is indexed by j
realised_returns <- returns %>%
filter(Date == t_oos[t]) %>%
select(-Date)
portf_returns[t,j] <- sum(portf_weights[t,j,] * realised_returns)
}
}
apply(portf_returns,2,perf_met) %>% # Taking perf metrics
unlist() %>% # Flattening the list
matrix(nrow = 2, byrow = T) %>% # Ordering them
`colnames<-`(c("avg_ret", "vol", "SR", "VaR")) %>% # Adding column names
data.frame() # Converting to dataframe
apply(portf_weights, 2, turnover_simple) %>% unlist()
[1] 0.3035889 0.0000000
We recall the order of strategies: MSR first (line) and EW second (line).
Again, turnover should (and will) be added to the performance metric function. Since uniform weights are constant, their simplified turnover is zero. In practice, that is not the case because weights evolve according to asset returns. The adjustment would imply only a small turnover.
There is a well-documented substantial difference between the two weigting schemes in terms of asset rotation. The MSR that we compute is clearly not competitive: even before transaction costs, its Sharpe ratio is smaller than that of the EW portfolio (see DeMiguel et al. (2009) for further evidence on the robustness of the EW portfolio).
Make do without loops
Finally, we show how to bypass the loop over dates. While this is not useful on small datasets, it can save time on large databases because loops are notoriously time-consuming. Below, we show how to proceed with the map() function in the simple case with only one strategy.
# We create a function that will compute returns for each date:
port_map <- function(t_oos, returns){
temp_data <- returns %>% filter(Date < t_oos) # Still expanding window...
portf_weights <- temp_data %>%
select(-Date) %>%
weights_msr()
realised_returns <- returns %>%
filter(Date == t_oos) %>%
select(-Date)
return(sum(portf_weights * realised_returns))
}
# the map() function does it all!
portf_returns <- t_oos %>% # The variable over which we loop
map(~port_map(.x, returns = returns)) %>% # Is sent to the map() function
unlist() # The output is flattened
perf_met(portf_returns) # Compute the perf metrics
Characteristics-based choice
In this section, we start the chapter of strategies based on firm characteristics (features). As an illustration, we check a well-documented (though still controversial) anomaly: the size effect. We build two portfolios: in the first (resp. second) one, we invest in the firms that have a below (resp. above) median market capitalisation. The first portfolio will be a ‘small’ portfolio and the second one a ‘large’ one. Stocks are equally-weighted inside the portfolios.
First, we prepare the variables and define the weight function.
nb_port <- 2 # Nb of portfolios
portf_weights <- array(0, dim = c(Tt-1, nb_port, length(tick))) # Where we store weights
portf_returns <- matrix(0, nrow = Tt-1, ncol = nb_port) # Where we store returns
weights_cap <- function(data,j){
# More general than before: we feed all the data, not just returns
m <- median(data$Mkt_Cap) # Compute the median market cap
n <- nrow(data) # Compute the number of assets
if(j == 1){return((data$Mkt_Cap < m)/n*2)} # Small cap
if(j == 2){return((data$Mkt_Cap > m)/n*2)} # Large cap
}
There will only be Tt-1 dates since we lose one because of the computation of future returns.
Second, we can launch the backtesting loop.
for(t in 2:length(t_oos)){
temp_data <- data %>% filter(Date == t_oos[t-1]) # We keep the data of the previous date
for(j in 1:nb_port){ # We loop on the strategies
portf_weights[t-1,j,] <- weights_cap(temp_data, j) # The weights' function is indexed by j
realised_returns <- returns %>%
filter(Date == t_oos[t]) %>%
select(-Date)
portf_returns[t-1,j] <- sum(portf_weights[t-1,j,] * realised_returns)
}
}
Third, we proceed to performance metrics.
apply(portf_returns,2,perf_met) %>% # Taking perf metrics
unlist() %>% # Flattening the list
matrix(nrow = 2, byrow = T) %>% # Ordering them
`colnames<-`(c("avg_ret", "vol", "SR", "VaR")) %>% # Adding column names
data.frame() # Converting to dataframe
Small firms do indeed generate a higher level of performance! In order to reach this conclusion in a rigourous fashion, we would need to perform the same analysis on at least 1,000 stocks (ideally, more) and on 5 to 10 portfolio sorts (from very small firms to very large ones). Below, we check the weights of the portfolio on one particular date.
small <- portf_weights[2,1,] # t = 2, j = 1 (t_oos[2] = 2010-03-01, small firms)
large <- portf_weights[2,2,] # t = 2, j = 2 (t_oos[2] = 2010-03-01, large firms)
data.frame(small, large, row.names = tick)
Indeed, some stocks have zero weights and others 1/15.
Finally, let’s see how we could have coded those strategies using the tidyverse (and a lot of piping!).
data %>% filter(Date > sep_date) %>% # Keep only the out-of-sample backtesting dates
group_by(Tick) %>% # Group by stock
mutate(F_Return = lead(Return)) %>% # Compute forward (i.e., realised) return
na.omit() %>% # Take out NAs
group_by(Date) %>% # Group by dates
mutate(Mkt_Cap_Binary = Mkt_Cap < median(Mkt_Cap)) %>% # Compute median cap for each date
group_by(Mkt_Cap_Binary) %>% # Group by Mkt_Cap: small vs large
summarise(avg_return = mean(F_Return)) # Simple pivot table
It can be useful to see how often stocks switch from one family to another (from below median to above median or vice-versa). Below, we show a plot of Mkt_Cap, conditional on Mkt_Cap being above the current median.
data %>% group_by(Date) %>% # Group by date
mutate(Mkt_Cap_median = median(Mkt_Cap)) %>% # Compute median cap for each date
filter(Mkt_Cap > Mkt_Cap_median) %>% # Keep only the large stocks
ggplot(aes(x = Date, y = Mkt_Cap, color = Tick)) + geom_line() + ylim(75000,250000) +
geom_line(aes(x = Date, y = Mkt_Cap_median), color = "black")

# The black line shows the running median
The straight lines show the discontinuities: one stock being large at some point in time, then small and then large again. The straight lines show the periods when the stock was small. The black line shows the median capitalisation (in the sample). Finally, because we focus in the zone close to the median and impose an upper limit of 250B$, there are some missing points.
Exercises
Rolling window
Change the main loop so that only 60 points of data are given to the weighting scheme(s). Sixty points amount to 5 years of monthly data.
Minimum variance
Add the MV portfolio to the set of strategies. The weights depend only on the covariance matrix: \(w=\frac{\Sigma^{-1}1}{1'\Sigma^{-1}1}\).
map() expertise
Extend the map() syntax to the case with many strategies.
Realistic portfolios
In practice, many saveguards are applied, if only to reduce turnover. One such example is box constraint: the weights in the portfolio must not lie above or below user-specified thresholds.
Add a winsorising feature in the weights function that allows to cut the weights accordingly. If possible, add arguments directly to the function. Don’t forget to normalise the weights ex-post!
LS0tCnRpdGxlOiAiUG9ydGZvbGlvIGJhc2ljcyIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOgogICAgdG9jOiB0cnVlCiAgICB0b2NfZmxvYXQ6IHRydWUKLS0tCgpUaGlzIGlzIHRoZSBjb21wYW5pb24gbm90ZWJvb2sgdG8gdGhlIGludHJvZHVjdG9yeSBjb3Vyc2Ugb24gc2ltcGxlICoqcG9ydGZvbGlvIGNvbnN0cnVjdGlvbioqIGFuZCAqKnBlcmZvcm1hbmNlIG1ldHJpY3MqKi4KCiMjIEEgZ2xpbXBzZSBhdCB0aGUgUyZQNTAwClRoZSAqKlMmUDUwMCoqIGlzIG9uZSBvZiB0aGUgbW9zdCB3aWRlbHkgc2NydXRpbmlzZWQgaW5kZXggaW4gdGhlIFVTIEVxdWl0eSBpbnZlc3RtZW50IHNwYWNlLiBJdCBzZXJ2ZXMgdmVyeSBvZnRlbiBhcyAqKmJlbmNobWFyayoqLiBUaGUgcHVycG9zZSBvZiB0aGlzIHNlY3Rpb24gaXMgdG8gdW52ZWlsIGEgZmV3IG9mIGl0cyBzdGF0aXN0aWNhbCBwcm9wZXJ0aWVzIGFuZCB0byB1c2UgdGhlICoqaGlnaGNoYXJ0ZXIqKiBwYWNrYWdlIGZvciBoaWdoY2hhcnQgcmVuZGVyaW5nIGluIFIuCgoKV2Ugc3RhcnQgYnkgbG9hZGluZyB0aGUgcGFja2FnZXMgYW5kIGRvd25sb2FkaW5nIHRoZSBkYXRhLgoKYGBge3IgbG9hZCwgd2FybmluZyA9IEZBTFNFLCBtZXNzYWdlID0gRkFMU0V9CmlmKCFyZXF1aXJlKGhpZ2hjaGFydGVyKSl7aW5zdGFsbC5wYWNrYWdlcygiaGlnaGNoYXJ0ZXIiKX0gIyBQYWNrYWdlIGZvciBuaWNlIGZpbmFuY2lhbCBncmFwaHMKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkobHVicmlkYXRlKQpsaWJyYXJ5KHF1YW50bW9kKSAgICAjIFRoZSBwYWNrYWdlIHRoYXQgZWFzZXMgdGhlIGRvd25sb2FkaW5nIG9mIGZpbmFuY2lhbCBkYXRhCmxpYnJhcnkoaGlnaGNoYXJ0ZXIpICMgVGhlIHBhY2thZ2UgZm9yIGZpbmFuY2lhbCB0aW1lLXNlcmllcyBwbG90cwoKbWluX2RhdGUgPC0gIjE5OTUtMDEtMDEiCm1heF9kYXRlIDwtICIyMDE5LTAyLTEyIgpwcmljZXMgPC0gZ2V0U3ltYm9scygiXkdTUEMiLCBzcmMgPSAneWFob28nLCAgIyBZYWhvbyBzb3VyY2UgKHN0cmFuZ2UgdGlja2VyKQogICAgICAgICAgICAgZnJvbSA9IG1pbl9kYXRlLCAKICAgICAgICAgICAgIHRvID0gbWF4X2RhdGUsCiAgICAgICAgICAgICBhdXRvLmFzc2lnbiA9IFRSVUUsIAogICAgICAgICAgICAgd2FybmluZ3MgPSBGQUxTRSkgJT4lIAogIG1hcCh+QWQoZ2V0KC4pKSkgJT4lIAogIHJlZHVjZShtZXJnZSkgJT4lCiAgYGNvbG5hbWVzPC1gKCJTUDUwMCIpCmBgYAoKClRoZW4sIHdlIHR1cm4gdG8gcGxvdHRpbmcsIHVzaW5nICoqaGlnaGNoYXJ0KiogZm9ybWF0LiBXZSB1bmRlcmxpbmUgdGhhdCB0aGlzIHBhY2thZ2Ugd29ya3Mgd2l0aCBzcGVjaWFsICoqeHRzKiogKFIgZXh0ZW5zaWJsZSB0aW1lLXNlcmllcykgZm9ybWF0LiBXZSBwb2ludCB0byB0aGUgcGFja2FnZSByZWZlcmVuY2UgZm9yIG1vcmUgZGV0YWlscyBvbiB0aGlzIHN1YmplY3QuCgpgYGB7ciBoaWdoY2hhcnR9CmhjIDwtIGhpZ2hjaGFydCh0eXBlID0gInN0b2NrIikgJT4lCiAgICBoY190aXRsZSh0ZXh0ID0gIkV2b2x1dGlvbiBvZiB0aGUgUyZQNTAwIikgJT4lCiAgICBoY19hZGRfc2VyaWVzKHByaWNlcykKaHRtbHRvb2xzOjp0YWdMaXN0KGhjKSAgICAgICAgICAgICAgIyBVc2VkIGZvciBodG1sIGV4cG9ydApleHBvcnRfaGMoaGMsIGZpbGVuYW1lID0gImhjLmpzIikgICAjIEV4cG9ydApgYGAKCjxzY3JpcHQgdHlwZT0idGV4dC9qYXZhc2NyaXB0IiBzcmM9ImhjLmpzIj48L3NjcmlwdD4KCkEgbmljZSBmZWF0dXJlIG9mIGhpZ2hjaGFydHMgaXMgdGhhdCB0aGV5IGFsbG93IHRoZSB1c2VyIHRvIGNoYW5nZSB0aGUgb2JzZXJ2YXRpb24gcGVyaW9kIGFuZCBzZWUgdGhlIHZhbHVlcyBvZiBwb2ludHMgb24gdGhlIGN1cnZlLiAKCk5leHQsIHdlIHR1cm4gdG8gdGhlIGRpc3RyaWJ1dGlvbiBvZiByZXR1cm5zLgoKYGBge3J9CnJldHVybnMgPC0gKHByaWNlcy9sYWcocHJpY2VzKSAtIDEpICU+JSAjIEZvcm11bGEgZm9yIHJldHVybnMKICAgIGRhdGEuZnJhbWUoRGF0ZSA9IGluZGV4KC4pKSAgICAgJT4lICMgQWRkaW5nIHRoZSBEYXRlIGFzIGEgY29sdW1uCiAgICBuYS5vbWl0KCkgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFJlbW92aW5nIE5BIHJvd3MKbSA8LSBtZWFuKHJldHVybnMkU1A1MDApICAgICAgICAgICAgICAgICMgQXZlcmFnZSBkYWlseSByZXR1cm4KcyA8LSBzZChyZXR1cm5zJFNQNTAwKSAgICAgICAgICAgICAgICAgICMgVm9sYXRpbGl0eSA9IHNkIG9mIGRhaWx5IHJldHVybnMKCnJldHVybnMgJT4lIGdncGxvdCgpICsgICAgICAgICAgICAgICAgICAjIFBsb3QKICAgIGdlb21faGlzdG9ncmFtKGFlcyh4ID0gU1A1MDAsIHkgPSAuLmRlbnNpdHkuLiksIGJpbnMgPSAxMDApICsKICAgIHN0YXRfZnVuY3Rpb24oZnVuID0gZG5vcm0sIGFyZ3MgPSBsaXN0KG1lYW4gPSBtLCBzZCA9IHMpLCBhZXMoY29sb3IgPSAiR2F1c3NpYW4iKSkKYGBgCgpXZSBwbG90IHRoZSBHYXVzc2lhbiBkaXN0cmlidXRpb24gd2l0aCBwYXJhbWV0ZXJzIGNvcnJlc3BvbmRpbmcgdG8gdGhlIHNhbXBsZSBtZWFuIGFuZCBzdGFuZGFyZCBkZXZpYXRpb24uIFNtYWxsIGdyZXkgcmVjdGFuZ2xlcyBhcm91bmQgJFxwbSAwLjA1JCBpbmRpY2F0ZSB0aGF0IGxhcmdlIHBvc2l0aXZlIGFuZCBuZWdhdGl2ZSByZXR1cm5zIG9jY3VyIG1vcmUgb2Z0ZW4gdGhhbiBlc3RpbWF0ZSBieSB0aGUgR2F1c3NpYW4gbGF3OiB0aGUgdGFpbHMgb2YgdGhlaXIgZGlzdHJpYnV0aW9uIGFyZSBub3RvcmlvdXNseSAqKmhlYXZ5KiouCgpGaW5hbGx5LCB3ZSB0YWtlIGEgZHluYW1pYyBsb29rIGF0IHRoZSB2b2xhdGlsaXR5LiBXZSB0YWtlIGEgZnJ1Z2FsIGFwcHJvYWNoOyBtdWNoIG1vcmUgZWxlZ2FudCBtZXRob2RzIGFyZSBwcmVzZW50ZWQgaW4gU2VjdGlvbiA0LjUgb2YgKipSZXByb2R1Y2libGUgRmluYW5jZSoqIGJ5IEpvbmF0aGFuIFJlZ2Vuc3RlaW4uCgpgYGB7ciB2b2x9Cm5iX2RheXMgPC0gNjMgICAjIDYzIGRheXMgcm91Z2hseSBlcXVpdmFsZW50IHRvIDMgbW9udGhzIAp2b2wgPC0gMCAgICAgICAgIyBJbml0aWFsaXNhdGlvbgpmb3IoaSBpbiAxOihucm93KHJldHVybnMpIC0gbmJfZGF5cyArIDEpKXsgICAgICAgICAgIyBMb29wIG9uIGRhdGVzOiBub3QgZWxlZ2FudCEKICB2b2xbaV0gPC0gc2QocmV0dXJucyRTUDUwMFtpOihpICsgbmJfZGF5cyAtIDEpXSkgICMgVm9sIGNvbXB1dGVkIG9uIHJvbGxpbmcgd2luZG93IG9mIG5iX2RheXMKfQpEYXRlIDwtIHJldHVybnMkRGF0ZVtuYl9kYXlzOm5yb3cocmV0dXJucyldCnZvbCA8LSBkYXRhLmZyYW1lKHZvbCpzcXJ0KDI1MikpCgpyb3duYW1lcyh2b2wpIDwtIERhdGUKaGNfdm9sIDwtIGhpZ2hjaGFydCh0eXBlID0gInN0b2NrIikgJT4lCiAgICBoY190aXRsZSh0ZXh0ID0gIkV2b2x1dGlvbiBvZiB2b2xhdGlsaXR5IikgJT4lCiAgICBoY19hZGRfc2VyaWVzKGFzLnh0cyh2b2wpKQpodG1sdG9vbHM6OnRhZ0xpc3QoaGNfdm9sKSAgICAgICAgICAgICAgIyBVc2VkIGZvciBodG1sIGV4cG9ydApgYGAKCkNsZWFybHkgdGhlIGdyYXBoIHNob3dzIHBlcmlvZHMgb2YgbG93IHZvbGF0aWxpdHkgYW5kICoqY2x1c3RlcnMqKiBvZiBoaWdoIG1hcmtldCB0dXJidWxlbmNlIChjcmFzaGVzLCBtb3N0IG9mIHRoZSB0aW1lKS4gUmV0dXJucyBhcmUgdGhlcmVmb3JlICoqbm90IHN0YXRpb25hcnkqKi4gVGhlIHByb3BlcnRpZXMgd2UgZXhoaWJpdGVkIGZvciB0aGUgUyZQNTAwIGFyZSBhbHNvIHRydWUgYXQgdGhlIGluZGl2aWR1YWwgc3RvY2sgbGV2ZWwuCgpJbiB0aGUgbmV4dCBzZWN0aW9uLCB3ZSB0dXJuIHRvIHRoZSBjb3JlIHRvcGljIG9mICoqcG9ydGZvbGlvIGJhY2t0ZXN0aW5nKiouCgoKIyMgQSB1bml2ZXJzZSBvZiBmdW5jdGlvbnMKCkJhY2t0ZXN0aW5nIHBvcnRmb2xpbyBzdHJhdGVnaWVzIGlzIHVzdWFsbHkgc2ltcGxlIGF0IGZpcnN0LCBidXQgYmVjb21lcyBtb3JlIGludHJpY2F0ZSB3aGVuIG1hbnkgb3B0aW9ucyBhcmUgY29uc2lkZXJlZC4gVG8ga2VlcCB0aGluZ3Mgc2ltcGxlLCBpdCBpcyBtb3JlIGVmZmljaWVudCB0byB3b3JrIHdpdGggZnVuY3Rpb25zLiAqKkZ1bmN0aW9ucyBoZWxwIGNvbXBhcnRtZW50YWxpc2UgdGhlIGRpZmZlcmVudCB0YXNrcyBvZiB0aGUgcHJvY2VzcyoqLiBXZSB3aWxsIGJ1aWxkIGZ1bmN0aW9ucyB0aGF0IGNvbXB1dGUgcG9ydGZvbGlvIHdlaWdodHMgYW5kIG90aGVycyB0aGF0IGV2YWx1YXRlIHRoZSBwZXJmb3JtYW5jZSBtZXRyaWNzIG9mIHRoZSBzdHJhdGVnaWVzLiBXaGlsZSB3ZSB3aWxsIHVzdWFsbHkgd29yayB3aXRoIGEgbG9vcCBvbiBiYWNrdGVzdGluZyBkYXRlcywgaXQgaXMgcG9zc2libGUgdG8gYnVpbGQgZnVuY3Rpb25zIHRoYXQgZGlyZWN0bHkgZ2VuZXJhdGUgcG9ydGZvbGlvIHJldHVybnMgKHNlZSBiZWxvdzogdGhlIG1hcCgpIGZ1bmN0aW9uKS4KCkJ1dCBmaXJzdCwgd2Ugc3RhcnQgd2l0aCB0aGUgcHJlcHJvY2Vzc2luZyBvZiB0aGUgZGF0YS4KCiMjIyBEYXRhIHByZXBhcmF0aW9uCldlIGZpcnN0IGltcG9ydCBhbmQgYXJyYW5nZSB0aGUgZGF0YS4gClRoZSBkYXRhIGNvbnNpc3RzIG9mIG1vbmh0bHkgZmluYW5jaWFsIGluZm9ybWF0aW9uIHBlcnRhaW5pbmcgdG8gMzAgbGFyZ2UgVVMgZmlybXMuIFRoZXkgYXJlIGNoYXJhY3RlcmlzZWQgYnkgdGhlaXIgKip0aWNrZXIqKiBzeW1ib2w6ICAKCnxBIC0gRnwgRyAtIE0gfE8gLSBafAp8IC0tLSB8IC0tLS0tIHwgLS0tIHwKfCBBQVBMIChBcHBsZSl8IEdFIChHZW5lcmFsIEVsZWN0cmljKSB8IE9SQ0wgKE9yYWNsZSkKfCBCQSAoQm9laW5nKSB8IEhEIChIb21lIERlcG90KSB8IFBGRSAoUGZpemVyKQp8IEJBQyAoQmFuayBvZiBBbWVyaWNhKSB8IElCTSB8IFBHIChQcm9jdGVyICYgR2FtYmxlKQp8IEMgKENpdGlncm91cCkgfCBJTlRDIChJbnRlbCkgfCBUIChBVCZUKQp8Q1NDTyAoQ2lzY28pIHwgSk5KIChKb2huc29uICYgSm9obnNvbikgfCAgVU5IIChVbml0ZWQgSGVhbHRoKQp8Q1ZTIChDVlMgSGVhbHRoKSB8IEpQTSAoSlAgTW9yZ2FuKSB8IFVQUyAKfENWWCAoQ2hldnJvbikgfCBLIChLZWxsb2dnKSB8IFZaIChWZXJpem9uKQp8RCAoRG9taW5pb24gRW5lcmd5KSB8IE1DSyAoTWNLZXNzb24pIHwgV0ZDIChXZWxscyBGYXJnbykKfERJUyAoRGlzbmV5KSB8IE1SSyAoTWVyY2spIHwgV01UIChXYWxtYXJ0KQp8RiAoRm9yZCkgfCBNU0ZUIChNaWNyb3NvZnQpIHwgWE9NIChFeHhvbikKCgpUaGVyZSBhcmUgNyBhdHRyaWJ1dGVzOiBjbG9zaW5nIHByaWNlICgqKkNsb3NlKiopLCBtYXJrZXQgY2FwaXRhbGlzYXRpb24gaW4gTSQgKCoqTWt0X0NhcCoqKSwgcHJpY2UtdG8tYm9vayByYXRpbyAoKipQMkIqKiksIDEgbW9udGggdm9sYXRpbGl0eSAoKipWb2xfMU0qKiksIDEgbW9udGggcmVsYXRpdmUgc3RyZW5ndGggaW5kZXggKCoqUlNJXzFNKiopLCBkZWJ0LXRvLWVxdWl0eSByYXRpbyAoKipEMkUqKikgYW5kIHByb2ZpdGFiaWxpdHkgbWFyZ2luICgqKlByb2ZfTWFyZyoqKS4gICAKRmluYWxseSwgdGhlIHRpbWUgcmFuZ2UgaXMgMjAwMC0yMDE4LgoKYGBge3IgaW5pdGlhdGUsIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFfQpsb2FkKCJkYXRhLlJEYXRhIikgICAgICAgICAgICAgICAgICAgICAgIyBMb2FkaW5nIHRoZSBkYXRhOiBJRiBESVJFQ1RPUlkgT0shCmRhdGEgPC0gZGF0YSAlPiUgYXJyYW5nZShEYXRlLFRpY2spICAgICAjIFJhbmtlZCBmaXJzdCBhY2NvcmRpbmcgdG8gZGF0ZSBhbmQgdGhlbiBzdG9ja3MKc3VtbWFyeShkYXRhKSAgICAgICAgICAgICAgICAgICAgICAgICAgICMgRGVzY3JpcHRpdmUgc3RhdGlzdGljcwpgYGAKClRoaXMgc2ltcGxlIHRhYmxlIHNob3dzIGEgcG9zc2libGUgb3V0bGllciBmb3IgdGhlICoqUDJCKiogdmFyaWFibGUuIFRoZSBtYXhpbXVtIHZhbHVlIGlzIGNsZWFybHkgb3V0IG9mIHJhbmdlLiAgCk5leHQsIHdlIGZvcm1hdCB0aGUgZGF0YSBmb3IgZnV0dXJlIHVzZS4gTm90YWJseSwgd2UgY29tcHV0ZSByZXR1cm5zLgoKYGBge3IgZm9ybWF0LCB3YXJuaW5nID0gRkFMU0V9CmRhdGEgPC0gZGF0YSAgJT4lIAogICAgZ3JvdXBfYnkoVGljaykgJT4lICAgICAgICAgICAgICAgICAgICAgICAgICAjIEdyb3VwaW5nOiByZXR1cm5zIGNvbXB1dGVkIHN0b2NrLWJ5LXN0b2NrCiAgICBtdXRhdGUoUmV0dXJuID0gQ2xvc2UgLyBsYWcoQ2xvc2UpIC0gMSkgJT4lICMgQWRkaW5nIHJldHVybnMKICAgIG5hLm9taXQoKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBUYWtlIG91dCBtaXNzaW5nIHZhbHVlcwoKcmV0dXJucyA8LSBkYXRhICU+JSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBUYWtlIGRhdGEKICAgIHNlbGVjdChUaWNrLCBEYXRlLCBSZXR1cm4pICU+JSAgICAgICAgICAgICAgIyBTZWxlY3QgMyBjb2x1bW5zCiAgICBzcHJlYWQoa2V5ID0gVGljaywgdmFsdWUgPSBSZXR1cm4pICAgICAgICAgICMgUHV0IHRoZW0gaW50byAnbWF0cml4JyBmb3JtYXQKcmV0dXJucyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBTaG93IHRoZSByZXR1cm5zCmBgYAoKQnkgZGVmaW5pdGlvbiwgYSBwb3J0Zm9saW8gaXMgYSBjaG9pY2Ugb2Ygd2VpZ2h0cyB0aGF0IHN1bSB0byBvbmUuIEJlbG93LCB3ZSBpbXBsZW1lbnQgdHdvIGNsYXNzaWNhbCB3ZWlnaHRpbmcgc2NoZW1lczogdGhlIHVuaWZvcm0gcG9ydGZvbGlvICgqKkVXKiogPSBlcXVhbCB3ZWlnaHRzKSBhbmQgdGhlIG1heGltdW0gU2hhcnBlIHJhdGlvIHBvcnRmb2xpbyAoKipNU1IqKikuIFRoZSBsYXR0ZXIgaXMgbW9yZSBjb21wbGljYXRlZCBhbmQgcmVxdWlyZXMgaW5wdXRzOiBuYW1lbHkgdGhlIGNvbHVtbiB2ZWN0b3Igb2YgKGV4cGVjdGVkKSBtZWFuICRcbXUkIGFuZCBjb3ZhcmlhbmNlIG1hdHJpeCAkXFNpZ21hJCBvZiB0aGUgYXNzZXRzLiBGb3Igc2ltcGxpY2l0eSwgd2Ugd2lsbCBlc3RpbWF0ZSB0aGVtIHVzaW5nICoqc2FtcGxlIG1vbWVudHMqKiAtIGV2ZW4gdGhvdWdoIHRoaXMgaXMga25vd24gdG8gYmUgYSBiYWQgY2hvaWNlLiBUaGlzIHJlcXVpcmVzIGFuIGFkZGl0aW9uYWwgYXJndW1lbnQgaW4gdGhlIGZ1bmN0aW9uOiB0aGUgYXNzZXRzJyBwYXN0IHJldHVybnMuIFRoZSAqKk1TUioqIHdlaWdodHMgYXJlICR3PVxmcmFje1xTaWdtYV57LTF9XG11fXsxJ1xTaWdtYV57LTF9XG11fSQuIEJvdGggJFxtdSQgYW5kIDEgYXJlIHZlY3RvcnMgaGVyZS4KCmBgYHtyIHdlaWdodHN9CndlaWdodHNfbXNyIDwtIGZ1bmN0aW9uKHJldHVybnMpeyAjIHJldHVybnMgd2lsbCByZWZlciB0byBQQVNUIHJldHVybnMKICAgIG0gPC0gYXBwbHkocmV0dXJucywgMiwgbWVhbikgICMgVmVjdG9yIG9mIGF2ZXJhZ2UgcmV0dXJucwogICAgc2lnbWEgPC0gY292KHJldHVybnMpICAgICAgICAgIyBDb3ZhcmlhbmNlIG1hdHJpeAogICAgdyA8LSBzb2x2ZShzaWdtYSkgJSolIG0gICAgICAgIyBSYXcgd2VpZ2h0cwogICAgcmV0dXJuKHcgLyBzdW0odykpICAgICAgICAgICAgIyBSZXR1cm5zIG5vcm1hbGlzZWQgd2VpZ2h0cwp9Cgp3ZWlnaHRzX2V3IDwtIGZ1bmN0aW9uKHJldHVybnMpeyAgIyBXZSBrZWVwIHRoZSBzYW1lIHN5bnRheCBmb3Igc2ltcGxpY2l0eQogICAgTiA8LSBsZW5ndGgocmV0dXJuc1sxLF0pICAgICAgIyBOdW1iZXIgb2YgYXNzZXRzCiAgICByZXR1cm4ocmVwKDEvTixOKSkgICAgICAgICAgICAjIFdlaWdodCA9IDEvTgp9CmBgYAoKCldlIGFyZSBub3cgcmVhZHkgdG8gcHJvY2VlZCB3aXRoIHRoZSAqKmluaXRpYWxpc2F0aW9uKiogb2YgdGhlIHZhcmlhYmxlcyB0aGF0IHdpbGwgdXNlIGluIHRoZSBtYWluIGxvb3AuCgpgYGB7ciBpbml0XzIsIHdhcm5pbmcgPSBGQUxTRX0KdGljayA8LSBsZXZlbHMoZGF0YSRUaWNrKSAgICAgICAgICAgICAgICMgU2V0IG9mIGFzc2V0cwp0X2FsbCA8LSB1bmlxdWUoZGF0YSREYXRlKSAgICAgICAgICAgICAgIyBTZXQgb2YgZGF0ZXMKc2VwX2RhdGUgPC0gYXMuRGF0ZSgiMjAxMC0wMS0wMSIpICAgICAgICMgVGhpcyBkYXRlIHNlcGFyYXRlcyBpbi1zYW1wbGUgdnMgb3V0LW9mLXNhbXBsZQp0X29vcyA8LSB0X2FsbFt0X2FsbCA+IHNlcF9kYXRlXSAgICAgICAgIyBPdXQtb2Ytc2FtcGxlIGRhdGVzIChpLmUuLCB0ZXN0aW5nIHNldCkKcG9ydGZfd2VpZ2h0cyA8LSBtYXRyaXgoMCwgbnJvdyA9IGxlbmd0aCh0X29vcyksICMgV2lsbCBzdG9yZSBwb3J0Zm9saW8gd2VpZ2h0cwogICAgICAgICAgICAgICAgICAgICAgICAgICBuY29sID0gbGVuZ3RoKHRpY2spKSAKcG9ydGZfcmV0dXJucyA8LSBjKCkgICAgICAgICAgICAgICAgICAgICMgV2lsbCBzdG9yZSBwb3J0Zm9saW8gcmV0dXJucwpgYGAKCiMjIyBBIGZpcnN0IGV4YW1wbGUKQXQgbGFzdCwgd2UgY2FuIHByb2NlZWQgdG8gdGhlIG1haW4gbG9vcC4gQSBub3RlIG9mIGNhdXRpb246IGJvdGggaW4gdGhlIHdlaWdodGluZyBzY2hlbWUgZnVuY3Rpb25zIGFuZCBpbiB0aGUgbG9vcCBiZWxvdywgd2UgYXNzdW1lIHdlbGwgZGVmaW5lZCAoZmluaXRlLCBpLmUuLCBub24gTkEpIGRhdGEuIE9idmlvdXNseSwgZmVlZGluZyAqKk5BKiogZGF0YSBpbiB0aGUgc3lzdGVtIHdpbGwgcHJvZHVjZSAqKk5BKiogb3V0cHV0cy4gVGhlcmUgYXJlIG9ubHkgZm91ciBzdGVwcyBpbiB0aGUgbG9vcDogIAoKMS4gZXh0cmFjdCB0aGUgZGF0YSAgCjIuIGNvbXB1dGUgcG9ydGZvbGlvIHdlaWdodHMgIAozLiBjb21wdXRlIHJlYWxpc2VkIHJldHVybnMgIAo0LiBkZXJpdmUgdGhlIHJldHVybiBvZiB0aGUgcG9ydGZvbGlvCgpgYGB7ciBtYWlufQpmb3IodCBpbiAxOmxlbmd0aCh0X29vcykpewogICAgdGVtcF9kYXRhIDwtIHJldHVybnMgJT4lIGZpbHRlcihEYXRlIDwgdF9vb3NbdF0pICMgMSkgRXh0cmFjdGluZyBwYXN0IGRhdGE6IGV4cGFuZGluZyB3aW5kb3chIAogICAgcG9ydGZfd2VpZ2h0c1t0LF0gPC0gdGVtcF9kYXRhICU+JSAgICAgICAgICAgICAgICMgMikgVGFrZSB0aGlzIHBhc3QgZGF0YSAKICAgICAgICBzZWxlY3QoLURhdGUpICU+JSAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFRha2Ugb3V0IHRoZSBkYXRlIGNvbHVtbgogICAgICAgIHdlaWdodHNfbXNyKCkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgQXBwcGx5IHRoZSB3ZWlnaHRpbmcgc2NoZW1lIGZ1bmN0aW9uCiAgICByZWFsaXNlZF9yZXR1cm5zIDwtIHJldHVybnMgJT4lICAgICAgICAgICAgICAgICAgIyAzKSBUYWtlIHJldHVybnMKICAgICAgICBmaWx0ZXIoRGF0ZSA9PSAgdF9vb3NbdF0pICU+JSAgICAgICAgICAgICAgICAjIEtlZXAgb25seSBjdXJyZW50IGRhdGUKICAgICAgICBzZWxlY3QoLURhdGUpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFRha2Ugb3V0IHRoZSBkYXRlIGNvbHVtbgogICAgcG9ydGZfcmV0dXJuc1t0XSA8LSBzdW0ocG9ydGZfd2VpZ2h0c1t0LF0gKiByZWFsaXNlZF9yZXR1cm5zKSAjIDQpIENvbXB1dGUgdGhlIHJldHVybgp9CmBgYAoKSW4gdGhlIGFib3ZlICoqYmFja3Rlc3QqKiwgdGhlIGFtb3VudCBvZiBkYXRhIGNvbnNpZGVyZWQgdG8gZm9ybSB0aGUgcG9ydGZvbGlvIGRlY2lzaW9uIGluY3JlYXNlcyB3aXRoIHRpbWUgKCoqZXhwYW5kaW5nIHdpbmRvdyoqKS4gSXQgaXMgZWFzeSB0byBmaXggdGhlIG51bWJlciBvZiBkYXRhIHBvaW50IGF0IGVhY2ggc3RlcCBhbmQgcHJvY2VlZCBvbiByb2xsaW5nIHdpbmRvd3MgKGV4ZXJjaXNlKS4gTGlrZXdpc2UsIHN3aXRjaGluZyBmcm9tICoqTVNSKiogdG8gKipFVyoqIGlzIGltbWVkaWF0ZSAoanVzdCBjaGFuZ2UgdGhlIHdlaWdodGluZyBmdW5jdGlvbikuICAKClRoZSBtYWluIG91dHB1dCBpcyB0aGUgdmVjdG9yIG9mIHBvcnRmb2xpbyByZXR1cm5zLiBXZSBjYW4gZWFzaWx5IHBsb3QgdGhlICoqZXZvbHV0aW9uKiogb2YgdGhlIHBvcnRmb2xpbyB0aHJvdWdoIHRpbWUuCgpgYGB7ciBwb3J0X3Bsb3QsIHdhcm5pbmcgPSBGQUxTRX0KcG9ydCA8LSBkYXRhLmZyYW1lKHRfb29zLCBjdW1wcm9kKDErcG9ydGZfcmV0dXJucykpICAgICAgICAgIyBQb3J0Zi4gdmFsdWVzIHZpYSBjdW11bGF0aXZlIHByb2R1Y3QKY29sbmFtZXMocG9ydCkgPC0gYygiRGF0ZSIsICJQb3J0Zm9saW8iKSAgICAgICAgICAgICAgICAgICAgIyBDaGFuZ2luZyBjb2x1bW4gbmFtZXMKcG9ydCAlPiUgZ2dwbG90KCkgKyBnZW9tX2xpbmUoYWVzKHggPSBEYXRlLCB5ID0gUG9ydGZvbGlvKSkgIyBQbG90CmBgYAoKCkJlbG93LCB3ZSBjcmVhdGUgYSBmdW5jdGlvbiB0aGF0IHRha2VzIGEgc2VyaWVzIG9mIHJldHVybnMgYXMgaW5wdXQgYW5kIHByb3ZpZGVzIGEgZmV3IHNpbXBsZSAqKnBlcmZvcm1hbmNlIG1ldHJpY3MqKi4KCmBgYHtyIHBlcmZfbWV0LCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KcGVyZl9tZXQgPC0gZnVuY3Rpb24ocmV0dXJucyl7CiAgICBhdmdfcmV0IDwtIG1lYW4ocmV0dXJucywgbmEucm0gPSBUKSAgICAgICAgICAgICAgICAgICAgICMgQXJpdGhtZXRpYyBtZWFuIAogICAgdm9sIDwtIHNkKHJldHVybnMsIG5hLnJtID0gVCkgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFZvbGF0aWxpdHkKICAgIFNoYXJwZV9yYXRpbyA8LSBhdmdfcmV0IC8gdm9sICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBTaGFycGUgcmF0aW8KICAgIFZhUl81IDwtIHF1YW50aWxlKHJldHVybnMsIDAuMDUpICAgICAgICAgICAgICAgICAgICAgICAgIyBWYWx1ZS1hdC1yaXNrCiAgICBtZXQgPC0gZGF0YS5mcmFtZShhdmdfcmV0LCB2b2wsIFNoYXJwZV9yYXRpbywgVmFSXzUpICAgICMgQWdncmVnYXRpb24gb2YgYWxsIG9mIHRoaXMKICAgIHJvd25hbWVzKG1ldCkgPC0gIm1ldHJpY3MiCiAgICByZXR1cm4obWV0KQp9CnBlcmZfbWV0KHBvcnRmX3JldHVybnMpICMgTGV0J3MgdGVzdCBvbiB0aGUgYWN0dWFsIHJldHVybnMKYGBgCgpOb3RlOiB0aGUgdmFsdWVzIGFyZSBub3QgYW5udWFsaXNlZC4gVGhlIGFubnVhbGlzYXRpb24gY2FuIGJlIGRpcmVjdGx5IGNvZGVkIGludG8gdGhlIGZ1bmN0aW9uLiBBIGhldXJpc3RpYyB3YXkgdG8gcHJvY2VlZCBpcyB0byBtdWx0aXBseSBhdmVyYWdlIHJldHVybnMgYnkgMTIgYW5kIHZvbGF0aWxpdGllcyBieSAkXHNxcnR7MTJ9JCAtIHRob3VnaCB0aGlzIG9taXRzIHRoZSBjb21wb3VuZGluZyBlZmZlY3QuIFRoZXNlIHNpbXBsaWZpY2F0aW9ucyBhcmUgb2sgaWYgdGhleSBhcmUgdXNlZCB0byBjb21wYXJlIHN0cmF0ZWdpZXMuIFRoZSBWYWx1ZSBhdCBSaXNrIGlzIG5vbnRoZWxlc3MgZGVwZW5kZW50IG9uIHRoZSByZXR1cm4gaG9yaXpvbiBhbmQgY2Fubm90IGJlIHByb3hpZWQgc28gc2ltcGx5LiAgIAoKQW4gaW1wb3J0YW50IGluZGljYXRvciBpcyB0aGUgKip0dXJub3ZlcioqIG9mIHRoZSBwb3J0Zm9saW86IGl0IGFzc2Vzc2VzIGFzc2V0IHJvdGF0aW9uIGFuZCB0aHVzIGltcGFjdHMgdHJhbnNhY3Rpb24gY29zdHMuIFNpbXBsZSB0dXJub3ZlciBjb21wdXRlcyBhdmVyYWdlIGFic29sdXRlIHZhcmlhdGlvbiBpbiBwb3J0Zm9saW8gd2VpZ2h0czogJFx0ZXh0e1R1cm59PVxmcmFjezF9e1R9XHN1bV97dD0yfV5UXHN1bV97bj0xfV5OfHdfdF5uLXdfe3QtMX1ebnwkLiBGdWxsIHR1cm5vdmVyIHRha2VzIGludG8gYWNjb3VudCB0aGUgdmFyaWF0aW9uIG9mIHRoZSB3ZWlnaHRzIGJldHdlZW4gcmViYWxhbmNpbmcgZGF0ZXM6ICRcdGV4dHtUdXJufT1cZnJhY3sxfXtUfVxzdW1fe3Q9Mn1eVFxzdW1fe249MX1eTnx3X3Rebi13X3t0LX1ebnwkLCB3aGVyZSAkdC0kIGlzIHRoZSB0aW1lIGp1c3QgYmVmb3JlIHRoZSByZWJhbGFuY2luZyBkYXRlLiAKCmBgYHtyIHR1cm5vdmVyLCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KdHVybm92ZXJfc2ltcGxlIDwtIGZ1bmN0aW9uKHdlaWdodHMpewogICAgdHVybiA8LSAwCiAgICBmb3IodCBpbiAyOmxlbmd0aCh0X29vcykpewogICAgICAgICAgdHVybiA8LSB0dXJuICsgc3VtKGFicyh3ZWlnaHRzW3QsXSAtIHdlaWdodHNbdC0xLF0pKQogICAgfQogICAgcmV0dXJuKHR1cm4vKGxlbmd0aCh0X29vcyktMSkpICAjIEJFV0FSRTogbW9udGhseSB2YWx1ZSEKfQp0dXJub3Zlcl9zaW1wbGUocG9ydGZfd2VpZ2h0cykgICAgICAjIFNpbXBsZSB0dXJub3ZlciEKYGBgCgpCZWxvdywgd2Ugc3dpdGNoIHRvIHRoZSBmdWxsIGRlZmluaXRpb24gb2YgdGhlICoqdHVybm92ZXIqKi4KCmBgYHtyIHR1cm5vdmVyX2Z1bGwsIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFfQp0dXJub3Zlcl9mdWxsIDwtIGZ1bmN0aW9uKHdlaWdodHMsIGFzc2V0X3JldHVybnMsIHRfb29zKXsKICAgIHR1cm4gPC0gMAogICAgZm9yKHQgaW4gMjpsZW5ndGgodF9vb3MpKXsKICAgICAgICByZWFsaXNlZF9yZXR1cm5zIDwtIHJldHVybnMgJT4lIGZpbHRlcihEYXRlID09IHRfb29zW3RdKSAlPiUgc2VsZWN0KC1EYXRlKQogICAgICAgIHR1cm4gPC0gdHVybiArIGFwcGx5KGFicyh3ZWlnaHRzW3QsXSAtIHdlaWdodHNbdC0xLF0gKiAoMSArIHJlYWxpc2VkX3JldHVybnMpKSwxLHN1bSkKICAgIH0KICAgIHJldHVybih0dXJuLyhsZW5ndGgodF9vb3MpLTEpKQp9CmFzc2V0X3JldHVybnMgPC0gcmV0dXJucyAlPiUgZmlsdGVyKERhdGUgPiBzZXBfZGF0ZSkgICAgIyBBc3NldCByZXR1cm5zIG92ZXIgdGhlIGV4cGVyaW1lbnQKdHVybm92ZXJfZnVsbChwb3J0Zl93ZWlnaHRzLCBhc3NldF9yZXR1cm5zLCB0X29vcykgICAgICAjIFJlYWwgdHVybm92ZXIKYGBgCgpOb3RlIHRoYXQgdGhlIHR1cm5vdmVyIGlzIGNvbXB1dGVkIGF0IHRoZSBtb250aGx5IGZyZXF1ZW5jeS4gVGhlIHNlY29uZCB2YWx1ZSBpcyBhbHdheXMgbW9yZSByZWFsaXN0aWM7IGluIHRoaXMgY2FzZSBpdCBpcyBzdWJzdGFudGlhbGx5IGhpZ2hlciBjb21wYXJlZCB0byB0aGUgc2ltcGxpZmllZCBwcm94eS4gRm9yIHRoZSBzYWtlIG9mIGNvbXBhY3RuZXNzLCB0aGUgdHVybm92ZXIgc2hvdWxkIGJlIGluY2x1ZGVkIGluIHRoZSAqKnBlcmZfbWV0KiooKSBmdW5jdGlvbi4KCgojIyBFeHRlbnNpb25zCiMjIyBDb21wYXJpbmcgc3RyYXRlZ2llcwoKQW4gaW1wb3J0YW50IGdlbmVyYWxpc2F0aW9uIG9mIHRoZSBhYm92ZSBmcmFtZXdvcmsgaXMgdG8gY29uc2lkZXIgbW9yZSB0aGFuIG9uZSBzdHJhdGVneS4gQ29tcGFyaXNvbnMgYXJlIGNvbW1vbnBsYWNlIGluIHRoZSBhc3NldCBtYW5hZ2VtZW50IGluZHVzdHJ5OiBvYnZpb3VzbHksIHBlb3BsZSBsb29rIGZvciB0aGUgKmJlc3QqIHN0cmF0ZWd5IChhY2NvcmRpbmcgdG8gcGFydGljdWxhciBnb2FscywgYmVsaWVmcywgYW5kIHByZWZlcmVuY2VzKS4gQmVsb3csIHdlIHNob3cgaG93IHRoaXMgY2FuIGJlIGhhbmRsZWQuIFdlIHdpbGwgY29tcGFyZSB0aGUgdHdvIHN0cmF0ZWdpZXMgdGhhdCB3ZSBtZW50aW9ubmVkIGFib3ZlLgpGaXJzdCwgd2UgbmVlZCB0byByZS1pbml0aWF0ZSB0aGUgdmFyaWFibGVzIGJlY2F1c2UgdGhlaXIgZGltZW5zaW9uIHdpbGwgY2hhbmdlICgqKk5PVEUqKjogYW4gYWx0ZXJuYXRpdmUgcm91dGUgd291bGQgYmUgdG8gd29yayB3aXRoIGxpc3RzKS4gCgpgYGB7ciBtdWx0aV9pbml0LCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KVHQgPC0gbGVuZ3RoKHRfb29zKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgTmIgb2YgY29tcHV0YXRpb24gZGF0ZXMgCiMgQXZvaWQgVCBiZWNhdXNlIFQgPSBUUlVFIQpuYl9wb3J0IDwtIDIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBOYiBvZiBwb3J0Zm9saW9zCnBvcnRmX3dlaWdodHMgPC0gYXJyYXkoMCwgZGltID0gYyhUdCwgbmJfcG9ydCwgbGVuZ3RoKHRpY2spKSkgICAjIFN0b3JlIHdlaWdodHMKcG9ydGZfcmV0dXJucyA8LSBtYXRyaXgoMCwgbnJvdyA9IFR0LCBuY29sID0gbmJfcG9ydCkgICAgICAgICAgICMgU3RvcmUgcmV0dXJucwpgYGAKClNlY29uZCwgd2UgZW1iZWQgYWxsIHdlaWdodGluZyBzY2hlbWVzIGludG8gb25lIHNpbmdsZSBmdW5jdGlvbi4KCmBgYHtyIG11bHRpX3dlaWdodHN9CndlaWdodHNfbXVsdGkgPC0gZnVuY3Rpb24ocmV0dXJucyxqKXsgICAjIFN0cmF0ZWdpZXMgYXJlIGluZGV4ZWQgYnkgagogICAgaWYoaiA9PSAxKXsgIyBqID0gMSA9PiBNU1IKICAgICAgICByZXR1cm4od2VpZ2h0c19tc3IocmV0dXJucykpCiAgICB9CiAgICBpZihqID09IDIpeyAjIGogPSAyID0+IEVXCiAgICAgICAgTiA8LSBsZW5ndGgocmV0dXJuc1sxLF0pCiAgICAgICAgcmV0dXJuKHJlcCgxL04sTikpCiAgICB9Cn0KYGBgCgpXZSBkZWNpZGVkIHRvIHJlY29kZSB0aGUgKipFVyoqIHN0cmF0ZWd5LCBidXQgd2UgY291bGQgaGF2ZSB1c2VkIHRoZSAqKndlaWdodHNfZXcqKigpIGZ1bmN0aW9uIGluc3RlYWQuCkZpbmFsbHksIHRoZSBtYWluIGxvb3AgaXMgb25seSBtYXJnaW5hbGx5IGRpZmZlcmVudCBmcm9tIHRoZSBzaW5nbGUgc3RyYXRlZ3kgbG9vcC4KCmBgYHtyIG11bHRpX2xvb3AsIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFfQpmb3IodCBpbiAxOmxlbmd0aCh0X29vcykpewogICAgdGVtcF9kYXRhIDwtIHJldHVybnMgJT4lIAogICAgICAgIGZpbHRlcihEYXRlIDwgdF9vb3NbdF0pICU+JSAKICAgICAgICBzZWxlY3QoLURhdGUpCiAgICBmb3IoaiBpbiAxOm5iX3BvcnQpeyAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVGhpcyBpcyB0aGUgbm92ZWx0eTogd2UgbG9vcCBvbiB0aGUgc3RyYXRlZ2llcyAKICAgICAgICBwb3J0Zl93ZWlnaHRzW3QsaixdIDwtIHdlaWdodHNfbXVsdGkodGVtcF9kYXRhLCBqKSAgIyBUaGUgd2VpZ2h0cycgZnVuY3Rpb24gaXMgaW5kZXhlZCBieSBqCiAgICAgICAgcmVhbGlzZWRfcmV0dXJucyA8LSByZXR1cm5zICU+JSAKICAgICAgICAgICAgZmlsdGVyKERhdGUgPT0gIHRfb29zW3RdKSAlPiUgCiAgICAgICAgICAgIHNlbGVjdCgtRGF0ZSkKICAgICAgICBwb3J0Zl9yZXR1cm5zW3Qsal0gPC0gc3VtKHBvcnRmX3dlaWdodHNbdCxqLF0gKiByZWFsaXNlZF9yZXR1cm5zKQogICAgfQp9CmFwcGx5KHBvcnRmX3JldHVybnMsMixwZXJmX21ldCkgJT4lICAgICAgICAgICAgICAgICAgICAgIyBUYWtpbmcgcGVyZiBtZXRyaWNzCiAgICB1bmxpc3QoKSAlPiUgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBGbGF0dGVuaW5nIHRoZSBsaXN0CiAgICBtYXRyaXgobnJvdyA9IDIsIGJ5cm93ID0gVCkgJT4lICAgICAgICAgICAgICAgICAgICAgIyBPcmRlcmluZyB0aGVtCiAgICBgY29sbmFtZXM8LWAoYygiYXZnX3JldCIsICJ2b2wiLCAiU1IiLCAiVmFSIikpICU+JSAgIyBBZGRpbmcgY29sdW1uIG5hbWVzCiAgICBkYXRhLmZyYW1lKCkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBDb252ZXJ0aW5nIHRvIGRhdGFmcmFtZQphcHBseShwb3J0Zl93ZWlnaHRzLCAyLCB0dXJub3Zlcl9zaW1wbGUpICU+JSB1bmxpc3QoKQpgYGAKCldlIHJlY2FsbCB0aGUgb3JkZXIgb2Ygc3RyYXRlZ2llczogKipNU1IqKiBmaXJzdCAobGluZSkgYW5kICoqRVcqKiBzZWNvbmQgKGxpbmUpLiAgCgpBZ2FpbiwgdHVybm92ZXIgc2hvdWxkIChhbmQgd2lsbCkgYmUgYWRkZWQgdG8gdGhlIHBlcmZvcm1hbmNlIG1ldHJpYyBmdW5jdGlvbi4gU2luY2UgdW5pZm9ybSB3ZWlnaHRzIGFyZSBjb25zdGFudCwgdGhlaXIgc2ltcGxpZmllZCB0dXJub3ZlciBpcyB6ZXJvLiBJbiBwcmFjdGljZSwgdGhhdCBpcyBub3QgdGhlIGNhc2UgYmVjYXVzZSB3ZWlnaHRzIGV2b2x2ZSBhY2NvcmRpbmcgdG8gYXNzZXQgcmV0dXJucy4gVGhlIGFkanVzdG1lbnQgd291bGQgaW1wbHkgb25seSBhIHNtYWxsIHR1cm5vdmVyLgoKVGhlcmUgaXMgYSB3ZWxsLWRvY3VtZW50ZWQgc3Vic3RhbnRpYWwgZGlmZmVyZW5jZSBiZXR3ZWVuIHRoZSB0d28gd2VpZ3Rpbmcgc2NoZW1lcyBpbiB0ZXJtcyBvZiBhc3NldCByb3RhdGlvbi4gVGhlIE1TUiB0aGF0IHdlIGNvbXB1dGUgaXMgY2xlYXJseSBub3QgY29tcGV0aXRpdmU6IGV2ZW4gYmVmb3JlIHRyYW5zYWN0aW9uIGNvc3RzLCBpdHMgU2hhcnBlIHJhdGlvIGlzIHNtYWxsZXIgdGhhbiB0aGF0IG9mIHRoZSBFVyBwb3J0Zm9saW8gKHNlZSBEZU1pZ3VlbCBldCBhbC4gKDIwMDkpIGZvciBmdXJ0aGVyIGV2aWRlbmNlIG9uIHRoZSByb2J1c3RuZXNzIG9mIHRoZSBFVyBwb3J0Zm9saW8pLgoKCiMjIyBNYWtlIGRvIHdpdGhvdXQgbG9vcHMKCkZpbmFsbHksIHdlIHNob3cgaG93IHRvICoqYnlwYXNzIHRoZSBsb29wKiogb3ZlciBkYXRlcy4gV2hpbGUgdGhpcyBpcyBub3QgdXNlZnVsIG9uIHNtYWxsIGRhdGFzZXRzLCBpdCBjYW4gc2F2ZSB0aW1lIG9uIGxhcmdlIGRhdGFiYXNlcyBiZWNhdXNlIGxvb3BzIGFyZSBub3RvcmlvdXNseSB0aW1lLWNvbnN1bWluZy4gQmVsb3csIHdlIHNob3cgaG93IHRvIHByb2NlZWQgd2l0aCB0aGUgKiptYXAqKigpIGZ1bmN0aW9uIGluIHRoZSBzaW1wbGUgY2FzZSB3aXRoIG9ubHkgb25lIHN0cmF0ZWd5LgoKYGBge3IgbWFwLCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KIyBXZSBjcmVhdGUgYSBmdW5jdGlvbiB0aGF0IHdpbGwgY29tcHV0ZSByZXR1cm5zIGZvciBlYWNoIGRhdGU6CnBvcnRfbWFwIDwtIGZ1bmN0aW9uKHRfb29zLCByZXR1cm5zKXsgICAgICAgICAgICAgCiAgICB0ZW1wX2RhdGEgPC0gcmV0dXJucyAlPiUgZmlsdGVyKERhdGUgPCB0X29vcykgIyBTdGlsbCBleHBhbmRpbmcgd2luZG93Li4uCiAgICBwb3J0Zl93ZWlnaHRzIDwtIHRlbXBfZGF0YSAlPiUgCiAgICAgICAgc2VsZWN0KC1EYXRlKSAlPiUgCiAgICAgICAgd2VpZ2h0c19tc3IoKQogICAgcmVhbGlzZWRfcmV0dXJucyA8LSByZXR1cm5zICU+JSAKICAgICAgICBmaWx0ZXIoRGF0ZSA9PSAgdF9vb3MpICU+JSAKICAgICAgICBzZWxlY3QoLURhdGUpCiAgICByZXR1cm4oc3VtKHBvcnRmX3dlaWdodHMgKiByZWFsaXNlZF9yZXR1cm5zKSkKfQojIHRoZSBtYXAoKSBmdW5jdGlvbiBkb2VzIGl0IGFsbCEKcG9ydGZfcmV0dXJucyA8LSB0X29vcyAlPiUgICAgICAgICAgICAgICAgICAgICAgIyBUaGUgdmFyaWFibGUgb3ZlciB3aGljaCB3ZSBsb29wCiAgICBtYXAofnBvcnRfbWFwKC54LCByZXR1cm5zID0gcmV0dXJucykpICU+JSAgICMgSXMgc2VudCB0byB0aGUgbWFwKCkgZnVuY3Rpb24KICAgIHVubGlzdCgpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBUaGUgb3V0cHV0IGlzIGZsYXR0ZW5lZApwZXJmX21ldChwb3J0Zl9yZXR1cm5zKSAgICAgICAgICAgICAgICAgICAgICAgICAjIENvbXB1dGUgdGhlIHBlcmYgbWV0cmljcwpgYGAKCgojIyBDaGFyYWN0ZXJpc3RpY3MtYmFzZWQgY2hvaWNlCkluIHRoaXMgc2VjdGlvbiwgd2Ugc3RhcnQgdGhlIGNoYXB0ZXIgb2Ygc3RyYXRlZ2llcyBiYXNlZCBvbiBmaXJtIGNoYXJhY3RlcmlzdGljcyAoKipmZWF0dXJlcyoqKS4gQXMgYW4gaWxsdXN0cmF0aW9uLCB3ZSBjaGVjayBhIHdlbGwtZG9jdW1lbnRlZCAodGhvdWdoIHN0aWxsIGNvbnRyb3ZlcnNpYWwpICoqYW5vbWFseSoqOiB0aGUgKipzaXplIGVmZmVjdCoqLiBXZSBidWlsZCB0d28gcG9ydGZvbGlvczogaW4gdGhlIGZpcnN0ICgqcmVzcCouIHNlY29uZCkgb25lLCB3ZSBpbnZlc3QgaW4gdGhlIGZpcm1zIHRoYXQgaGF2ZSBhIGJlbG93ICgqcmVzcCouIGFib3ZlKSBtZWRpYW4gbWFya2V0IGNhcGl0YWxpc2F0aW9uLiBUaGUgZmlyc3QgcG9ydGZvbGlvIHdpbGwgYmUgYSAnc21hbGwnIHBvcnRmb2xpbyBhbmQgdGhlIHNlY29uZCBvbmUgYSAnbGFyZ2UnIG9uZS4gU3RvY2tzIGFyZSBlcXVhbGx5LXdlaWdodGVkIGluc2lkZSB0aGUgcG9ydGZvbGlvcy4KCkZpcnN0LCB3ZSBwcmVwYXJlIHRoZSB2YXJpYWJsZXMgYW5kIGRlZmluZSB0aGUgKip3ZWlnaHQgZnVuY3Rpb24qKi4KCmBgYHtyIGNoYXJzXzEsIHdhcm5pbmdzID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KbmJfcG9ydCA8LSAyICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBOYiBvZiBwb3J0Zm9saW9zCnBvcnRmX3dlaWdodHMgPC0gYXJyYXkoMCwgZGltID0gYyhUdC0xLCBuYl9wb3J0LCBsZW5ndGgodGljaykpKSAgICMgV2hlcmUgd2Ugc3RvcmUgd2VpZ2h0cwpwb3J0Zl9yZXR1cm5zIDwtIG1hdHJpeCgwLCBucm93ID0gVHQtMSwgbmNvbCA9IG5iX3BvcnQpICAgICAgICAgICAjIFdoZXJlIHdlIHN0b3JlIHJldHVybnMKCndlaWdodHNfY2FwIDwtIGZ1bmN0aW9uKGRhdGEsail7ICAgIAojIE1vcmUgZ2VuZXJhbCB0aGFuIGJlZm9yZTogd2UgZmVlZCBhbGwgdGhlIGRhdGEsIG5vdCBqdXN0IHJldHVybnMKICAgIG0gPC0gbWVkaWFuKGRhdGEkTWt0X0NhcCkgICAgICAgIyBDb21wdXRlIHRoZSBtZWRpYW4gbWFya2V0IGNhcAogICAgbiA8LSBucm93KGRhdGEpICAgICAgICAgICAgICAgICAjIENvbXB1dGUgdGhlIG51bWJlciBvZiBhc3NldHMKICAgIGlmKGogPT0gMSl7cmV0dXJuKChkYXRhJE1rdF9DYXAgPCBtKS9uKjIpfSAjIFNtYWxsIGNhcAogICAgaWYoaiA9PSAyKXtyZXR1cm4oKGRhdGEkTWt0X0NhcCA+IG0pL24qMil9ICMgTGFyZ2UgY2FwCn0KYGBgCgpUaGVyZSB3aWxsIG9ubHkgYmUgVHQtMSBkYXRlcyBzaW5jZSB3ZSBsb3NlIG9uZSBiZWNhdXNlIG9mIHRoZSBjb21wdXRhdGlvbiBvZiBmdXR1cmUgcmV0dXJucy4gIAoKU2Vjb25kLCB3ZSBjYW4gbGF1bmNoIHRoZSAqKmJhY2t0ZXN0aW5nIGxvb3AqKi4KCmBgYHtyIGNoYXJzXzIsIHdhcm5pbmdzID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KZm9yKHQgaW4gMjpsZW5ndGgodF9vb3MpKXsKICAgIHRlbXBfZGF0YSA8LSBkYXRhICU+JSBmaWx0ZXIoRGF0ZSA9PSB0X29vc1t0LTFdKSAgICAgICAgIyBXZSBrZWVwIHRoZSBkYXRhIG9mIHRoZSBwcmV2aW91cyBkYXRlCiAgICBmb3IoaiBpbiAxOm5iX3BvcnQpeyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgV2UgbG9vcCBvbiB0aGUgc3RyYXRlZ2llcyAKICAgICAgICBwb3J0Zl93ZWlnaHRzW3QtMSxqLF0gPC0gd2VpZ2h0c19jYXAodGVtcF9kYXRhLCBqKSAgIyBUaGUgd2VpZ2h0cycgZnVuY3Rpb24gaXMgaW5kZXhlZCBieSBqCiAgICAgICAgcmVhbGlzZWRfcmV0dXJucyA8LSByZXR1cm5zICU+JSAKICAgICAgICAgICAgZmlsdGVyKERhdGUgPT0gIHRfb29zW3RdKSAlPiUgCiAgICAgICAgICAgIHNlbGVjdCgtRGF0ZSkKICAgICAgICBwb3J0Zl9yZXR1cm5zW3QtMSxqXSA8LSBzdW0ocG9ydGZfd2VpZ2h0c1t0LTEsaixdICogcmVhbGlzZWRfcmV0dXJucykKICAgIH0KfQpgYGAKClRoaXJkLCB3ZSBwcm9jZWVkIHRvIHBlcmZvcm1hbmNlIG1ldHJpY3MuCgpgYGB7ciBjaGFyc18zLCB3YXJuaW5ncyA9IEZBTFNFLCBtZXNzYWdlID0gRkFMU0V9CmFwcGx5KHBvcnRmX3JldHVybnMsMixwZXJmX21ldCkgJT4lICAgICAgICAgICAgICAgICAgICAgIyBUYWtpbmcgcGVyZiBtZXRyaWNzCiAgICB1bmxpc3QoKSAlPiUgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBGbGF0dGVuaW5nIHRoZSBsaXN0CiAgICBtYXRyaXgobnJvdyA9IDIsIGJ5cm93ID0gVCkgJT4lICAgICAgICAgICAgICAgICAgICAgIyBPcmRlcmluZyB0aGVtCiAgICBgY29sbmFtZXM8LWAoYygiYXZnX3JldCIsICJ2b2wiLCAiU1IiLCAiVmFSIikpICU+JSAgIyBBZGRpbmcgY29sdW1uIG5hbWVzCiAgICBkYXRhLmZyYW1lKCkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBDb252ZXJ0aW5nIHRvIGRhdGFmcmFtZQpgYGAKClNtYWxsIGZpcm1zIGRvIGluZGVlZCBnZW5lcmF0ZSBhIGhpZ2hlciBsZXZlbCBvZiBwZXJmb3JtYW5jZSEgSW4gb3JkZXIgdG8gcmVhY2ggdGhpcyBjb25jbHVzaW9uIGluIGEgcmlnb3Vyb3VzIGZhc2hpb24sIHdlIHdvdWxkIG5lZWQgdG8gcGVyZm9ybSB0aGUgc2FtZSBhbmFseXNpcyBvbiBhdCBsZWFzdCAxLDAwMCBzdG9ja3MgKGlkZWFsbHksIG1vcmUpIGFuZCBvbiA1IHRvIDEwIHBvcnRmb2xpbyBzb3J0cyAoZnJvbSB2ZXJ5IHNtYWxsIGZpcm1zIHRvIHZlcnkgbGFyZ2Ugb25lcykuIEJlbG93LCB3ZSBjaGVjayB0aGUgd2VpZ2h0cyBvZiB0aGUgcG9ydGZvbGlvIG9uIG9uZSBwYXJ0aWN1bGFyIGRhdGUuCgpgYGB7ciBjaGVjaywgd2FybmluZyA9IEZBTFNFLCBtZXNzYWdlID0gRkFMU0V9CnNtYWxsIDwtIHBvcnRmX3dlaWdodHNbMiwxLF0gIyB0ID0gMiwgaiA9IDEgKHRfb29zWzJdID0gMjAxMC0wMy0wMSwgc21hbGwgZmlybXMpCmxhcmdlIDwtIHBvcnRmX3dlaWdodHNbMiwyLF0gIyB0ID0gMiwgaiA9IDIgKHRfb29zWzJdID0gMjAxMC0wMy0wMSwgbGFyZ2UgZmlybXMpCmRhdGEuZnJhbWUoc21hbGwsIGxhcmdlLCByb3cubmFtZXMgPSB0aWNrKQpgYGAKCkluZGVlZCwgc29tZSBzdG9ja3MgaGF2ZSB6ZXJvIHdlaWdodHMgYW5kIG90aGVycyAxLzE1LiAgCgpGaW5hbGx5LCBsZXQncyBzZWUgaG93IHdlIGNvdWxkIGhhdmUgY29kZWQgdGhvc2Ugc3RyYXRlZ2llcyB1c2luZyB0aGUgKip0aWR5dmVyc2UqKiAoYW5kIGEgbG90IG9mIHBpcGluZyEpLgoKYGBge3IgcGl2b3QhLCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KZGF0YSAlPiUgZmlsdGVyKERhdGUgPiBzZXBfZGF0ZSkgJT4lICAgICAgICAgICAgIyBLZWVwIG9ubHkgdGhlIG91dC1vZi1zYW1wbGUgYmFja3Rlc3RpbmcgZGF0ZXMKICAgIGdyb3VwX2J5KFRpY2spICU+JSAgICAgICAgICAgICAgICAgICAgICAgICAgIyBHcm91cCBieSBzdG9jawogICAgbXV0YXRlKEZfUmV0dXJuID0gbGVhZChSZXR1cm4pKSAlPiUgICAgICAgICAjIENvbXB1dGUgZm9yd2FyZCAoaS5lLiwgcmVhbGlzZWQpIHJldHVybgogICAgbmEub21pdCgpICU+JSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFRha2Ugb3V0IE5BcwogICAgZ3JvdXBfYnkoRGF0ZSkgJT4lICAgICAgICAgICAgICAgICAgICAgICAgICAjIEdyb3VwIGJ5IGRhdGVzCiAgICBtdXRhdGUoTWt0X0NhcF9CaW5hcnkgPSBNa3RfQ2FwIDwgbWVkaWFuKE1rdF9DYXApKSAlPiUgICMgQ29tcHV0ZSBtZWRpYW4gY2FwIGZvciBlYWNoIGRhdGUKICAgIGdyb3VwX2J5KE1rdF9DYXBfQmluYXJ5KSAlPiUgICAgICAgICAgICAgICAgIyBHcm91cCBieSBNa3RfQ2FwOiBzbWFsbCB2cyBsYXJnZQogICAgc3VtbWFyaXNlKGF2Z19yZXR1cm4gPSBtZWFuKEZfUmV0dXJuKSkgICAgICAjIFNpbXBsZSBwaXZvdCB0YWJsZQpgYGAKCgpJdCBjYW4gYmUgdXNlZnVsIHRvIHNlZSBob3cgb2Z0ZW4gc3RvY2tzIHN3aXRjaCBmcm9tIG9uZSBmYW1pbHkgdG8gYW5vdGhlciAoZnJvbSBiZWxvdyBtZWRpYW4gdG8gYWJvdmUgbWVkaWFuIG9yIHZpY2UtdmVyc2EpLiBCZWxvdywgd2Ugc2hvdyBhIHBsb3Qgb2YgKipNa3RfQ2FwKiosIGNvbmRpdGlvbmFsIG9uICoqTWt0X0NhcCoqIGJlaW5nIGFib3ZlIHRoZSBjdXJyZW50IG1lZGlhbi4gCgpgYGB7ciBjYXBfZ3JhcGgsIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFfQpkYXRhICU+JSBncm91cF9ieShEYXRlKSAlPiUgICAgICAgICAgICAgICAgICAgICAgICAgIyBHcm91cCBieSBkYXRlCiAgICBtdXRhdGUoTWt0X0NhcF9tZWRpYW4gPSBtZWRpYW4oTWt0X0NhcCkpICU+JSAgICAjIENvbXB1dGUgbWVkaWFuIGNhcCBmb3IgZWFjaCBkYXRlCiAgICBmaWx0ZXIoTWt0X0NhcCA+IE1rdF9DYXBfbWVkaWFuKSAlPiUgICAgICAgICAgICAjIEtlZXAgb25seSB0aGUgbGFyZ2Ugc3RvY2tzCiAgICBnZ3Bsb3QoYWVzKHggPSBEYXRlLCB5ID0gTWt0X0NhcCwgY29sb3IgPSBUaWNrKSkgKyBnZW9tX2xpbmUoKSArIHlsaW0oNzUwMDAsMjUwMDAwKSArCiAgICAgICAgZ2VvbV9saW5lKGFlcyh4ID0gRGF0ZSwgeSA9IE1rdF9DYXBfbWVkaWFuKSwgY29sb3IgPSAiYmxhY2siKSAKIyBUaGUgYmxhY2sgbGluZSBzaG93cyB0aGUgcnVubmluZyBtZWRpYW4KYGBgCgpUaGUgc3RyYWlnaHQgbGluZXMgc2hvdyB0aGUgKipkaXNjb250aW51aXRpZXMqKjogb25lIHN0b2NrIGJlaW5nIGxhcmdlIGF0IHNvbWUgcG9pbnQgaW4gdGltZSwgdGhlbiBzbWFsbCBhbmQgdGhlbiBsYXJnZSBhZ2Fpbi4gVGhlIHN0cmFpZ2h0IGxpbmVzIHNob3cgdGhlIHBlcmlvZHMgd2hlbiB0aGUgc3RvY2sgd2FzIHNtYWxsLiBUaGUgYmxhY2sgbGluZSBzaG93cyB0aGUgbWVkaWFuIGNhcGl0YWxpc2F0aW9uIChpbiB0aGUgc2FtcGxlKS4gRmluYWxseSwgYmVjYXVzZSB3ZSBmb2N1cyBpbiB0aGUgem9uZSBjbG9zZSB0byB0aGUgbWVkaWFuIGFuZCBpbXBvc2UgYW4gdXBwZXIgbGltaXQgb2YgMjUwQiQsIHRoZXJlIGFyZSBzb21lIG1pc3NpbmcgcG9pbnRzLgoKCiMjIEV4ZXJjaXNlcwoKIyMjIFJvbGxpbmcgd2luZG93CgpDaGFuZ2UgdGhlIG1haW4gbG9vcCBzbyB0aGF0IG9ubHkgNjAgcG9pbnRzIG9mIGRhdGEgYXJlIGdpdmVuIHRvIHRoZSB3ZWlnaHRpbmcgc2NoZW1lKHMpLiBTaXh0eSBwb2ludHMgYW1vdW50IHRvIDUgeWVhcnMgb2YgbW9udGhseSBkYXRhLgoKCmBgYHtyIHlvdXIgdHVybiF9CgpgYGAKCgojIyMgT3RoZXIgcGVyZm9ybWFuY2UgbWV0cmljcwpVc2luZyB0aGUgUGVyZm9ybWFuY2VBbmFseXRpY3MgcGFja2FnZSAoaW5zdGFsbCBpdCBmaXJzdCksIGNvbXB1dGUgdGhlIG1heGltdW0gZHJhd2Rvd24gdmlhOgpodHRwczovL3d3dy5yZG9jdW1lbnRhdGlvbi5vcmcvcGFja2FnZXMvUGVyZm9ybWFuY2VBbmFseXRpY3MvdmVyc2lvbnMvMS41LjIvdG9waWNzL21heERyYXdkb3duCgpDb21wdXRlIHRoZSB0cmFuc2FjdGlvbiBjb3N0LWFkanVzdGVkIFNSOiAkVEMtU1I9KFxiYXJ7cn0tMC4wMDUqVHVybikvXHNpZ21hJC4KCkFkZCBib3RoIG1ldHJpY3MgdG8gdGhlIHBlcmZfbWV0KCkgZnVuY3Rpb24uCgojIyMgTWluaW11bSB2YXJpYW5jZQpBZGQgdGhlIE1WIHBvcnRmb2xpbyB0byB0aGUgc2V0IG9mIHN0cmF0ZWdpZXMuIFRoZSB3ZWlnaHRzIGRlcGVuZCBvbmx5IG9uIHRoZSBjb3ZhcmlhbmNlIG1hdHJpeDogJHc9XGZyYWN7XFNpZ21hXnstMX0xfXsxJ1xTaWdtYV57LTF9MX0kLgoKIyMjIG1hcCgpIGV4cGVydGlzZQpFeHRlbmQgdGhlIG1hcCgpIHN5bnRheCB0byB0aGUgY2FzZSB3aXRoIG1hbnkgc3RyYXRlZ2llcy4KCiMjIyBSZWFsaXN0aWMgcG9ydGZvbGlvcwpJbiBwcmFjdGljZSwgbWFueSBzYXZlZ3VhcmRzIGFyZSBhcHBsaWVkLCBpZiBvbmx5IHRvIHJlZHVjZSB0dXJub3Zlci4gT25lIHN1Y2ggZXhhbXBsZSBpcyBib3ggY29uc3RyYWludDogdGhlIHdlaWdodHMgaW4gdGhlIHBvcnRmb2xpbyBtdXN0IG5vdCBsaWUgYWJvdmUgb3IgYmVsb3cgdXNlci1zcGVjaWZpZWQgdGhyZXNob2xkcy4gCgpBZGQgYSB3aW5zb3Jpc2luZyBmZWF0dXJlIGluIHRoZSB3ZWlnaHRzIGZ1bmN0aW9uIHRoYXQgYWxsb3dzIHRvIGN1dCB0aGUgd2VpZ2h0cyBhY2NvcmRpbmdseS4gSWYgcG9zc2libGUsIGFkZCBhcmd1bWVudHMgZGlyZWN0bHkgdG8gdGhlIGZ1bmN0aW9uLiBEb24ndCBmb3JnZXQgdG8gbm9ybWFsaXNlIHRoZSB3ZWlnaHRzIGV4LXBvc3Qh